(generic-char-p): A character of code 0 is not a generic char.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 5c4e14c00824ff5a1caaed46996cfe6b33419623..fde894ec484f3854152feb8f1c6d0edad09dc31d 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -261,9 +261,10 @@ Now we have the variable `charset-list'."
 (defsubst generic-char-p (char)
   "Return t if and only if CHAR is a generic character.
 See also the documentation of make-char."
-  (let ((l (split-char char)))
-    (and (or (= (nth 1 l) 0) (eq (nth 2 l) 0))
-        (not (eq (car l) 'composition)))))
+  (and (>= char 0400)
+       (let ((l (split-char char)))
+        (and (or (= (nth 1 l) 0) (eq (nth 2 l) 0))
+             (not (eq (car l) 'composition))))))
 
 \f
 ;; Coding system staffs